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program operators (input, output); 
constant L1 . 

enabled = true; 

disabled = false; 
inside = true; 
outside = false; 
end_of_list = -1 ; 

type 

contourjiumber = O..max_contour_number; 
childjist = array[1 ..maxchildren] of contourjiumber 
pointer_to_child_list = t childjist; 

var 

children: array[contour_number] of pointer_to_child_list; 
parent#: array[contour_number] of contour_number; 
number of children: array[contour_number] of integer; 
most_recently_created#: contourjiumber; 
contour_status: array[contour_number] of boolean; 
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procedure add_listed_children(n:contour_number;clist:pointer_to_child_list); 
{details are omitted} 

procedure removejisted_children(n:contourjiumber;clist:pointer_to_chiidjist); 
{details are omitted} 

function are_children(n:contour_number;clist:pointer_to_child_list);boolean; 

{details are omitted} 
function in_list(n:contour_number;clist:pointer_to_childjist);boolean; 

{details are omitted} 
function list_containing_only(n:contour_number):pointer_to_child_list; 
var n_as_list: pointer_to_chiid_list; 
begin 

new(n_as_list); 
n_as_listt[1]:= n; 
n_as_list t [2] := end_of_list; 
list_containing_only:= n_as_list; 

end; 
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Procedure put_e2(n: contour_number); 

if (contour_stalus[n] = disabled) then go to error 
create_new_contour; 

end; addJiSted " C ^ 

b 

begin dlJre put - e0(n: cont °ur_number); 

89,0 iH{m 7£i^l: a **™ )o,natau -* M ** s °'- a ***«>w 

., contour_status!n]:= disabled; 
end; 



I'M 

3 y 

III 
V. 



prosoW put.ef.dividefn^tour.mi*,,); cist: poiM.rjo_child.fet; insidetoolean)- 

" <<C0 "KiSSSlr " ( ronlour -^lpa re nt#[nlHisabled)) 

create_new_contour; 

add Jisted_children(most_recently_created#, dist) ■ 
if (not ins ide and are_children{parent#[n1. clist) 
and not in_list(n, list)) or (cllst = nil)) ) 
then begin 

remoye_nsted_chiJdren(parent#(n] t clist); 
en J«jBted_cl_^^ 

else if (inside and(are_children(n, dist) or (dist = nil))) 
then begin ' 

remove Jisted_children(n, dist)- 
^dJistedj^iHre^^ 

else go to error; 

end; 



procedure puLe1_merge(c1:contour_number; c2:contour_number); 

" ((OT 7h° e U n got^etl! = °' (COnt0ur - status ^ = disabled,) 

if (d = parent#[c2]) then 

addjisted_children(parent#[c1 J, children[c21) • 
else if (parental] = parent#(c2] then 1 

add_listed_children(c1 , childrenfc21) • 
else go to error; 1 ,; ' 

remove Jisted_child(parent#[c2], list containinq onlWc2))- 
contour_status[c2].= disabled; ~ " n *- on, YWh 

end; 
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1. PUT_E2(0); 

2. PUT_E2(1); 

3. PUT_E1_DIVIDE(1, nil, INSIDE); 

4. PUT_E1_DIVIDE(2, nil, INSIDE); 

5. PUT_E2(2); PUT_E2(4); 

6. PUT_E1_MERGE(1 , 4); 

7. PUT_E2(0); 

8. PUT_E1_DIVIDE(3, list_containing_only(7), OUTSIDE); 

9. PUT_E1_MERGE(3, 8); PUT_E0(7); PUT_E0(3); 

10. PUT_E1_MERGE(1, 2); 

11. PUT_E0(5); 

12. PUT_E1_MERGE(1,6); 

13. PUT_E0(1); 
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